home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / PINBSRC.ZIP / MENU / MINIMIZE.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-02-02  |  525 b   |  31 lines
  1. {minimizes T1-TAB about the factor 4}
  2. uses dos,crt;
  3. var f:file of byte;
  4.     f1:file of byte;
  5.     b:byte;
  6.     y,x:word;
  7. begin
  8.   assign(f,paramstr(1));
  9.   assign(f1,paramstr(2));
  10.   reset(f);
  11.   rewrite(f1);
  12.   writeln;
  13.   for y:=0 to 599 do
  14.   begin
  15.     write('.');
  16.     for x:=0 to 319 do
  17.     begin
  18.       read(f,b);
  19.       write(f1,b);
  20.       read(f,b);
  21.       read(f,b);
  22.       read(f,b);
  23.     end;
  24.     seek(f,filepos(f)+320*3); 
  25.     inc(y,3);
  26.     if y>599 then y:=599
  27.   end;
  28.   close(f);
  29.   close(F1);
  30. end.
  31.